<!--#include file="../conn/conn.asp"-->

<!--#include file="../include/loading.asp"--><!--#include file="../include/rights.asp"-->
<%
dim  card_company,card_type,card_name,card_tel,card_mobile,card_msn,card_fax,card_duty,card_opid

card_company=Request.form("card_company")
card_type=Request.form("card_type")
card_name=Request.form("card_name")
card_tel=Request.form("card_tel")
card_mobile=Request.form("card_mobile")
card_msn=Request.form("card_msn")
card_fax=Request.form("card_fax")
card_duty=Request.form("card_duty")

dim rs,sql
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from d_card where (id is null)"
rs.open sql,conn,1,3
rs.addnew

rs("card_comid")=card_comid
rs("card_company")=card_company
rs("card_type")=card_type
rs("card_name")=card_name
rs("card_tel")=card_tel
rs("card_mobile")=card_mobile
rs("card_msn")=card_msn
rs("card_fax")=card_fax
rs("card_duty")=card_duty
rs("card_opid")=Request.cookies("admin")("login_id")

rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing

   response.redirect "card.asp"

%>

